home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / windows5 / wck30p.zip / DDE_VB.ZI$ / SAMPLE.ZIP / SHELL.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-09-23  |  3KB  |  83 lines

  1. Form1
  2. Sample Tool
  3. Form1-
  4. Label1
  5. WinCheck Sample VB Add On Tool
  6. Label2
  7. Make a Checking Deposit for:
  8. Text1
  9. Text1
  10. Label3
  11. Dollars
  12. Command1
  13. Command2
  14. &Close
  15. Command1_Click
  16. LinkMode
  17.     LinkTopic
  18. AppTop
  19. LinkItem
  20. LinkType
  21. COLDZ
  22. Label1_Click0
  23. Text1
  24. caption
  25. Command2_Click:
  26. Command3_Click
  27. Text1_Changex
  28. Text2
  29. Text21
  30. Command4_Click
  31. Form_Click1
  32. chkvb
  33. rmdde
  34. Register
  35. AppExecutable
  36. AppDescription
  37. AppStatusLine
  38. AppClassName%
  39. WinCheckTopic
  40. @    Form_Loadf
  41. RegisterAppWithWinCheck
  42. TopicLenw
  43. LenCommand
  44. Comman
  45. Command1
  46. Label2_Click
  47. WCExec
  48. DDEError
  49. Request_Click
  50. MyDDEVerify
  51. NO_APP
  52. DDEErorr
  53.     DDEError1
  54. Command2_Click
  55. Form_Load
  56. These lines set up a topic for DDE
  57. Set up your stuff here
  58.  This line is the executable name 
  59. F:\CHKVB\SHELL.EXE
  60. This line is put in the Menu
  61. WinCheck Sample Tool
  62. This line is displayed in the status bar
  63. Run Sample Add On Tool
  64. This line MUST BE the Caption from the Windowi
  65. Sample Tool"
  66. These lines set up a topic for DDE
  67. Put your copyright message here*
  68. RegisterAppWithWinCheck
  69.  This code will register your application with WinCheck
  70. WinCheck|"
  71.  2 = COLD
  72. [REGISTERADDON:"
  73. The application is not running
  74. Command1_Click
  75.  This sample code makes the DDE command to do a deposit
  76.  VERY IMPORTANT- Make sure text inside the edit box is valid.a
  77.  We will use the VAL function to get a number, and then 
  78.  format it. Cheezy, but it works for a sample.
  79. [CDEPOSIT:t=
  80. WinCheck|"
  81.  2 = COLD
  82. The application is not running
  83.